home *** CD-ROM | disk | FTP | other *** search
/ Nebula 1 / Nebula One.iso / Internet / WWW / Perl_WWW_Utilities / txt2html / sample-dict < prev    next >
Encoding:
Text File  |  1996-02-06  |  3.6 KB  |  108 lines
  1. #
  2. # Sample links dictionary file for Seth Golub's txt2html v1.11
  3. # http://www.cs.wustl.edu/~seth/txt2html/
  4. #
  5. # $Revision: $
  6. # 
  7. # This dictionary contains some patterns for converting obvious URLs,
  8. # ftp sites, hostnames, email addresses and the like to hrefs.
  9. #
  10. # Adapted shamelessly from the html.pl package by Oscar Nierstrasz in
  11. # the Software Archive of the Software Composition Group
  12. # http://iamwww.unibe.ch/~scg/Src/
  13. #
  14. # Email suggestions to seth@cs.wustl.edu
  15. # Please include "txt2html" in the subject of your message.
  16. #
  17.  
  18. # Urls: <serice>:<rest-of-url>
  19.  
  20. |snews:[\w\.]+|         -> $&
  21. |http:[\w/\.:+\-~\%#?]+|  -> $&
  22. |shttp:[\w/\.:+\-~\%#?]+| -> $&
  23. |https:[\w/\.:+\-~\%#?]+| -> $&
  24. |file:[\w/\.:+\-]+|     -> $&
  25. |ftp:[\w/\.:+\-]+|      -> $&
  26. |wais:[\w/\.:+\-]+|     -> $&
  27. |gopher:[\w/\.:+\-]+|   -> $&
  28. |telnet:[\w/\.:+\-]+|   -> $&
  29.  
  30.  
  31. # catch some newsgroups to avoid confusion with sites:
  32. |([^\w\-/\.:\@>])(alt\.[\w\.+\-]+[\w+\-]+)|    -h-> $1<a href="news:$2">$2</a>
  33. |([^\w\-/\.:\@>])(bionet\.[\w\.+\-]+[\w+\-]+)| -h-> $1<a href="news:$2">$2</a>
  34. |([^\w\-/\.:\@>])(bit\.[\w\.+\-]+[\w+\-]+)|    -h-> $1<a href="news:$2">$2</a>
  35. |([^\w\-/\.:\@>])(comp\.[\w\.+\-]+[\w+\-]+)|   -h-> $1<a href="news:$2">$2</a>
  36. |([^\w\-/\.:\@>])(gnu\.[\w\.+\-]+[\w+\-]+)|    -h-> $1<a href="news:$2">$2</a>
  37. |([^\w\-/\.:\@>])(misc\.[\w\.+\-]+[\w+\-]+)|   -h-> $1<a href="news:$2">$2</a>
  38. |([^\w\-/\.:\@>])(news\.[\w\.+\-]+[\w+\-]+)|   -h-> $1<a href="news:$2">$2</a>
  39. |([^\w\-/\.:\@>])(rec\.[\w\.+\-]+[\w+\-]+)|    -h-> $1<a href="news:$2">$2</a>
  40. |([^\w\-/\.:\@>])(soc\.[\w\.+\-]+[\w+\-]+)|    -h-> $1<a href="news:$2">$2</a>
  41. |([^\w\-/\.:\@>])(talk\.[\w\.+\-]+[\w+\-]+)|   -h-> $1<a href="news:$2">$2</a>
  42. |([^\w\-/\.:\@>])(ch\.[\w\.+\-]+[\w+\-]+)|     -h-> $1<a href="news:$2">$2</a>
  43.  
  44. # FTP locations (with directory):
  45. # anonymous@<site>:<path>
  46. |(anonymous\@)([a-zA-Z][\w\.+\-]+\.[a-zA-Z]{2,}):(\s*)([\w\d+\-/\.]+)|
  47.   -h-> $1<a href="ftp://$2/$4">$2:$4</a>$3
  48.  
  49. # ftp@<site>:<path>
  50. |(ftp\@)([a-zA-Z][\w\.+\-]+\.[a-zA-Z]{2,}):(\s*)([\w\d+\-/\.]+)|
  51.   -h-> $1<a href="ftp://$2/$4">$2:$4</a>$3
  52.  
  53. # Email address
  54. |[a-zA-Z0-9_\+\-\.]+\@([a-zA-Z][\w\.+\-]+\.[a-zA-Z]{2,})|
  55.   -> mailto:$&
  56.  
  57. # <site>:<path>
  58. |([^\w\-/\.:\@>])([a-zA-Z][\w\.+\-]+\.[a-zA-Z]{2,}):(\s*)([\w\d+\-/\.]+)|
  59.   -h-> $1<a href="ftp://$2/$4">$2:$4</a>$3
  60.  
  61. # NB: don't confuse an http server with a port number for
  62. # an FTP location!
  63. # internet number version: <internet-num>:<path>
  64. |([^\w\-/\.:\@])(\d{2,}\.\d{2,}\.\d+\.\d+):([\w\d+\-/\.]+)|
  65.   -h-> $1<a href="ftp://$2/$3">$2:$3</a>
  66.  
  67. # telnet <site> <port>
  68. |telnet ([a-zA-Z][\w+\-]+(\.[\w\.+\-]+)+\.[a-zA-Z]{2,})\s+(\d{2,4})|
  69.   -h-> telnet <a href="telnet://$1:$3/">$1 $3</a>
  70.  
  71. # ftp <site>
  72. |ftp ([a-zA-Z][\w+\-]+(\.[\w\.+\-]+)+\.[a-zA-Z]{2,})|
  73.   -h-> ftp <a href="ftp://$1/">$1</a>
  74.  
  75. # host with "ftp" in the machine name
  76. |([a-zA-Z][\w+\-]*ftp[a-zA-Z][\w+\-]*\.[\w\.+\-]+\.[a-zA-Z]{2,})([^\w\d\-/\.:!])|
  77.   -h-> ftp <a href="ftp://$1/">$1</a>$2
  78.  
  79. # <site> <port>
  80. |([a-zA-Z][\w+\-]+\.[\w+\-]+\.[a-zA-Z]{2,})\s+(\d{2,4})|
  81.   -h-> <a href="telnet://$1:$2/">$1 $2</a>
  82.  
  83. # just the site name: <site>
  84. |([^\w\-/\.:\@>])([a-zA-Z][\w+\-]+(\.[\w+\-]+)+\.[a-zA-Z]{2,})|
  85.   -h-> $1<a href="telnet://$2">$2</a>
  86.  
  87. # just internet numbers with port:
  88. |([^\w\-/\.:\@])(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})\s+(\d{1,4})|
  89.   -h-> $1<a href="telnet://$2:$3">$2 $3</a>
  90.  
  91. # just internet numbers:
  92. |([^\w\-/\.:\@])(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})|
  93.   -h-> $1<a href="telnet://$2">$2</a>
  94.  
  95.  
  96. # RFCs
  97. /RFC ?(\d+)/ -i-> http://www.cis.ohio-state.edu:82/rfc/rfc$1.html
  98.  
  99.  
  100. # Seth and his amazing conversion program    :-)
  101.  
  102. "Seth Golub"  -i-> http://www.cs.wustl.edu/~seth/
  103. "txt2html"    -i-> http://www.cs.wustl.edu/~seth/txt2html/
  104.  
  105.  
  106. # End of sample dictionary
  107.  
  108.